home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / default.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  28.7 KB  |  747 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="wmssecure/include/wmsConstants.inc"-->
  3. <!--#include file="wmssecure/include/wmsLocStrings.inc"-->
  4. <!--#include file="wmssecure/include/wmsFileIO.inc"-->
  5. <!--#include file="wmssecure/include/wmsCommon.inc"-->
  6. <!--#include file="wmssecure/include/wmsError.inc"-->
  7. <!--#include file="wmssecure/include/wmsHelp.inc"-->
  8. <!--#include file="wmssecure/include/wmsHeader.inc"-->
  9. <%
  10. '+-------------------------------------------------------------------------
  11. '
  12. '  Microsoft Windows Media
  13. '  Copyright (C) Microsoft Corporation. All rights reserved.
  14. '
  15. '  File:       default.asp
  16. '
  17. '  Contents:
  18. '
  19. '--------------------------------------------------------------------------
  20. Dim g_bSecureConnection
  21. Dim g_dwBrowserType
  22. Dim g_strLocalHostWinName
  23. Dim g_bSSLDetected
  24. Dim strOp
  25.  
  26. on error resume next
  27. if( "" = Session( "SSLPort" ) ) then
  28.     Session( "SSLPort" ) = GetSSLPort
  29. end if
  30.  
  31. g_bSSLDetected = CBool( 0 < Len( Session( "SSLPort" ) ) )
  32.  
  33. '/////////////////////////////////////////////////////////////////////////////////////
  34. Function GetSSLPort()
  35.     Dim rgstrPort, strPort
  36.     rgstrPort = GetSecureBindings
  37.     
  38.     if (IsArray( rgstrPort ) ) then
  39.         strPort = rgstrPort( 0 )
  40.     else
  41.         strPort = rgstrPort
  42.     end if
  43.  
  44.     dwOffsetToColon = InStrRev( strPort, ":", -1, vbTextCompare )
  45.     if( 0 <> dwOffsetToColon ) then
  46.         strPort = Left( strPort, dwOffsetToColon - 1 )
  47.     end if
  48.     
  49.     dwOffsetToColon = InStr( 1, strPort, ":", vbTextCompare )
  50.     if( 0 <> dwOffsetToColon ) then
  51.         strPort = Right( strPort, Len( strPort ) - dwOffsetToColon )
  52.     end if
  53.     GetSSLPort = strPort
  54. End Function
  55.  
  56. '/////////////////////////////////////////////////////////////////////////////////////
  57. Function GetSecureBindings()
  58.     on error resume next
  59.     Dim objWebSite
  60.     Set objWebSite = GetObject( "IIS://LocalHost/W3SVC/" & Request.ServerVariables( "INSTANCE_ID" ) )    
  61.     GetSecureBindings = objWebSite.SecureBindings
  62. End Function
  63.  
  64. strOp = RemoveDangerousCharacters( Left( Request.QueryString( "op" ), 10 ) )
  65. if( 0 = StrComp( strOp, "logoff", vbTextCompare ) ) then
  66.     Response.Redirect( "WMSLogOff.asp?close=1" )
  67.     Response.Flush
  68.     Response.End
  69. end if
  70.  
  71. if( 0 < Len( Request.QueryString( "lhwn" ) ) ) then
  72.     Session( "LocalHostWinName" ) = Request.QueryString( "lhwn" )
  73. end if
  74. g_strLocalHostWinName = Session( "LocalHostWinName" )
  75.  
  76. g_bSecureConnection = CBool( 0 = StrComp( "on", Request.ServerVariables( "HTTPS" ), vbTextCompare ) )
  77. g_dwBrowserType = brMSIE
  78.  
  79. SyncWithApplicationState
  80. BrowserSniff
  81. PickStyleSheet
  82. RedirectIfLegacyBrowser
  83.  
  84. '////////////////////////////////////////////////////////////////
  85. Function CreateSSLConnectString()
  86.     Dim strLink
  87.     Dim strServerName
  88.     strServerName = Request.ServerVariables( "SERVER_NAME" )
  89.     strLink = ""
  90.     strLink = "https://" & strServerName & ":" & Session( "SSLPort" ) & "/default.asp"
  91.     CreateSSLConnectString = Replace( Server.HTMLEncode( L_SSLDETECTED_TEXT ), "___", "<a class=" & chr(34) & "warnlink" & chr(34) & " href=" & chr(34) & strLink & chr(34) & "><span class=" & chr(34) & "warnlink" & chr(34) & ">" & strLink & "</span></a>", 1 )
  92. End Function
  93.  
  94. '///////////////////////////////////////////////////////////////////////////
  95. ' Start writing to the output stream
  96. '///////////////////////////////////////////////////////////////////////////
  97. WriteHTMLHeader( L_WMSWEBADMINTITLE_TEXT ) 
  98.  
  99. Dim strLinkToIcon
  100. if( g_bSecureConnection ) then
  101.     strLinkToIcon = "https://"
  102. else
  103.     strLinkToIcon = "http://"
  104. end if
  105. strLinkToIcon = strLinkToIcon & Request.ServerVariables( "SERVER_NAME" )
  106. if( 0 >= InStr( 1, Request.ServerVariables( "SERVER_NAME" ), ":", vbTextCompare ) ) then
  107.     strLinkToIcon = strLinkToIcon & ":" & Request.ServerVariables( "SERVER_PORT" )
  108. end if
  109. strLinkToIcon = strLinkToIcon & "/img/WMSWebApp.ico"
  110. %>
  111. <LINK REL="SHORTCUT ICON" HREF="<%= strLinkToIcon %>"/>
  112. <LINK rel="stylesheet" type="text/css" href="wmsStyles.css"/>
  113. <script language="JavaScript">
  114. <!--
  115. /*@cc_on @*/
  116. document.onmouseup="";
  117.  
  118. var g_dwNumHelpLoadAttempts;
  119. var g_szLocalHostWinName = "<%= g_strLocalHostWinName %>";
  120.  
  121. g_dwNumHelpLoadAttempts = 0;
  122.  
  123. ///////////////////////////////////////////////////////////////////////
  124. function RecordLocalHostWinName( szWinName )
  125. {
  126. /*@if (@_jscript_version >= 1.3)
  127.     try 
  128.     {
  129. @end @*/
  130.         if( g_szLocalHostWinName == szWinName )
  131.         {
  132.             return;
  133.         }
  134.         g_szLocalHostWinName = szWinName;
  135. /*@if (@_jscript_version >= 1.3)
  136.     }
  137.     catch( error )
  138.     {
  139.         return;
  140.     }
  141. @end @*/
  142. }
  143.  
  144. ///////////////////////////
  145. function FileFromPath( szPath )
  146. {
  147.     var    dwLastPosOfSlash = 0;
  148.     var    dwPosOfSlash = 0;
  149.     var    szPathStr =    new    String(    szPath );
  150.     dwPosOfSlash = szPathStr.lastIndexOf( "/" );
  151.     return(    szPathStr.slice( dwPosOfSlash +    1 )    );
  152. }
  153.  
  154. ///////////////////////////
  155. function EatHelpCookie( szTopic )
  156. {
  157. /*@if (@_jscript_version >= 1.3)
  158.     try 
  159.     {
  160. @end @*/
  161.         var cookieParent = null;
  162.         if( ( null == g_winHelp ) || ( 2 > g_winHelp.frames.length ) )
  163.         {
  164.             return;
  165. //            cookieParent = window.document;
  166.         }
  167.         else
  168.         {
  169.             cookieParent = g_winHelp.document;
  170.         }
  171.     
  172.         var expiredDate = new Date();
  173.         expiredDate.setMinutes( expiredDate.getMinutes() - 2 );
  174.         
  175.         var szCurrentTopic = document.location.protocol + "//" + document.location.hostname + ":" + document.location.port + szTopic;
  176.         cookieParent.cookie = "helpTreeActiveTopic=; expires=" + expiredDate.toUTCString() + "; secure=false;";
  177.         cookieParent.cookie = "helpTreeActiveURL=; expires=" + expiredDate.toUTCString() + "; secure=false;";
  178. //        cookieParent.cookie = "helpTreeOpenNodes=; expires=" + expiredDate.toUTCString() + "; secure=false;";
  179.         
  180.         var newDate = new Date();
  181.         newDate.setUTCDate( newDate.getUTCMinutes() + 15 );
  182.         cookieParent.cookie = "helpTreeActiveURL=" + szTopic + "; expires=" + newDate.toUTCString() + ";";
  183.  
  184. /*@if (@_jscript_version >= 1.3)
  185.     } 
  186.     catch( error )
  187.     {
  188.         if( g_bDebugMode ) { throw( error ); }
  189.     }
  190. @end @*/
  191. }
  192.  
  193. ///////////////////////////////////////////////////////////////////////
  194. function LoadHelpTopic( szTopic )
  195. {
  196. /*@if (@_jscript_version >= 1.3)
  197.     try 
  198.     {
  199. @end @*/
  200.         if( null == g_winHelp )
  201.         {
  202.             return;
  203.         }
  204.         
  205.         var dwNumFrames = 0;
  206.         var mainFrame = null;
  207.         dwNumFrames = g_winHelp.frames.length;
  208.         mainFrame = g_winHelp.frames[ "main" ];
  209.  
  210.         if( ! mainFrame )
  211.         {
  212.             if( g_dwNumHelpLoadAttempts < 3 )
  213.             {
  214.                 g_dwNumHelpLoadAttempts = g_dwNumHelpLoadAttempts   + 1;
  215.                 
  216.                 var szOperation;
  217.                 szOperation = "LoadHelpTopic( " + "'" + szTopic + "'" + ");";
  218.                 setTimeout( szOperation, 500, "JavaScript" );
  219.             }            
  220.             return;
  221.         }
  222.         
  223.         mainFrame.location.replace( szTopic );
  224.     
  225.         if( FileFromPath ( mainFrame.location.pathname ) != FileFromPath ( szTopic ) )
  226.         {
  227.             if( "default.htm" == FileFromPath ( mainFrame.location.pathname ) )
  228.             {
  229.                 mainFrame.location.replace( szTopic );
  230.             }
  231.             else
  232.             {
  233.                 mainFrame.location = szTopic;
  234.             }
  235.             
  236.             var szOperation = "LoadHelpTopic( " + "'" + szTopic + "'" + ");";
  237.             setTimeout( szOperation, 400, "JavaScript" );
  238.         }
  239.         <% if( brMSIE = g_dwBrowserType ) then %>
  240.         else
  241.         {
  242.             if( mainFrame.SynchToc )
  243.             {
  244.                 mainFrame.SynchToc();
  245.             }
  246.         }
  247.         <% end if %>
  248. /*@if (@_jscript_version >= 1.3)
  249.     } 
  250.     catch( error )
  251.     {
  252.         return;
  253.     }
  254. @end @*/
  255. }
  256.  
  257. ///////////////////////////////////////////////////////////////////////
  258. function TellSessionFrameToAbandon()
  259. {
  260. /*@if (@_jscript_version >= 1.3)
  261.     try 
  262.     {
  263. @end @*/
  264.         if( window.location == window.parent.location )
  265.         {
  266.             return;
  267.         }
  268.         
  269.         var sessionFrame = null;
  270.         if( window.parent && window.parent.frames )
  271.         {
  272.             sessionFrame = parent.frames[ "WMSSession" ];
  273.         }
  274.         
  275.         if( sessionFrame )
  276.         {
  277.             sessionFrame.location.replace( sessionFrame.location + "&logoff=true" );
  278.             return;
  279.         }
  280. /*@if (@_jscript_version >= 1.3)
  281.     } 
  282.     catch( error )
  283.     {
  284.         return;
  285.     }
  286. @end @*/
  287. }
  288.  
  289. ///////////////////////////////////////////////////////////////////////
  290. function LogOff()
  291. {
  292. /*@if (@_jscript_version >= 1.3)
  293.     try 
  294.     {
  295. @end @*/
  296.         if( window.confirm( "<%= RemoveDangerousCharacters( L_LOGOFFCONF_TEXT ) %>" ) )
  297.         {
  298.             if( window.parent.location == document.location )
  299.             {
  300.                 document.location.replace( "default.asp?op=logoff" );
  301.             }
  302.             else
  303.             {
  304.                 TellSessionFrameToAbandon();
  305.                 window.parent.location = "/wmssecure/index.asp?op=logoff";
  306.             }
  307.         }
  308. /*@if (@_jscript_version >= 1.3)
  309.     } 
  310.     catch( error )
  311.     {
  312.         return;
  313.     }
  314. @end @*/
  315. }
  316.  
  317. var g_winHelp = null;
  318.         
  319. ///////////////////////////////////////////////////////////////////////
  320. function DoHelp( szNesting, szTopic )
  321. {
  322. /*@if (@_jscript_version >= 1.3)
  323.     try 
  324.     {
  325. @end @*/
  326.         if( document.pluginForm && document.pluginForm.help )
  327.         {
  328.             document.pluginForm.help.disabled = true;
  329.         }
  330.         
  331.         var szFeatures = "location,hotkeys,scrollbars,status,resizable,menubar,toolbar";
  332.         var szBaseHelpURL = szNesting;
  333.  
  334.         g_winHelp = window.open( "", "HELP", szFeatures, false );
  335.         EatHelpCookie( szTopic );
  336.  
  337.         <% if( brMSIE = g_dwBrowserType ) then %>
  338.         if( ( null == g_winHelp ) || 
  339.             ( 3 != g_winHelp.frames.length ) || 
  340.             ( null == g_winHelp.frames[ "treebody" ] ) ||
  341.             ( null == g_winHelp.frames[ "treesrc" ] ) ||
  342.             ( null == g_winHelp.frames[ "main" ] ) )
  343.         <% else %>
  344.         if( ( null == g_winHelp ) || 
  345.             ( 2 != g_winHelp.frames.length ) || 
  346.             ( null == g_winHelp.frames[ "main" ] ) )
  347.         <% end if %>
  348.         {
  349.             g_winHelp = window.open( szNesting + "help/default.htm", "HELP", szFeatures, true );
  350.         }
  351.         if( g_winHelp )
  352.         {
  353.             EatHelpCookie( szTopic );
  354. //            g_winHelp.document.SetDefaultOpenTreeNodes();
  355. //            g_winHelp.document.InitTree();
  356.  
  357.             g_winHelp.name = "HELP";
  358.             g_winHelp.focus();
  359.             
  360.             LoadHelpTopic( szTopic );
  361.         
  362.             if( document.pluginForm && document.pluginForm.help )
  363.             {
  364.                 document.pluginForm.help.disabled = false;
  365.             }
  366.         }
  367. /*@if (@_jscript_version >= 1.3)
  368.     } 
  369.     catch( error )
  370.     {
  371.         return;
  372.     }
  373. @end @*/
  374. }
  375.  
  376. //////////////////////////////////////////////////////////////////////////
  377. function Proceed( bShowServerList )
  378. {
  379. /*@if (@_jscript_version >= 1.3)
  380.     try 
  381.     {
  382. @end @*/
  383. <%
  384.     if( brMSIE = g_dwBrowserType ) then %>
  385.         if( bShowServerList )
  386.         {
  387.             window.parent.top.location.replace( "/wmssecure/index.asp" );
  388.         }<%
  389.     else %>
  390.         if( bShowServerList )
  391.         {
  392.             parent.document.location.replace( "/wmssecure/index.asp" );
  393.         }<%
  394.     end if %>
  395.         else
  396.         {
  397.             var win = null;
  398.             var szFeatures = "hotkeys,scrollbars,status,menubar,resizable"; //,location";
  399.             var bReplace = true;
  400.             var szUrl;
  401.             
  402.             szUrl = "/wmssecure/admin.asp?srv=localhost&showSL=false";
  403.             win = window.open( szUrl, g_szLocalHostWinName, szFeatures, true );
  404.             if( win )
  405.             {
  406.                 win.focus();
  407.             }  
  408.         }
  409. /*@if (@_jscript_version >= 1.3)
  410.     } 
  411.     catch( error )
  412.     {
  413.         return;
  414.     }
  415. @end @*/
  416. }
  417.  
  418. //////////////////////////////////////////////////////////////////////////
  419. function LoadHandler()
  420. {
  421. /*@if (@_jscript_version >= 1.3)
  422.     try 
  423.     {
  424. @end @*/
  425.         window.name = "sList";
  426.     <% if brMSIE = g_dwBrowserType then %>
  427.         window.MainDiv.style.cursor = "Auto";
  428.     <% else %>
  429.         window.zlock = true;
  430.     <% end if %>
  431.         window.focus();
  432. /*@if (@_jscript_version >= 1.3)
  433.     } 
  434.     catch( error )
  435.     {
  436.         return;
  437.     }
  438. @end @*/
  439. }
  440. -->
  441. </script>
  442. </head>
  443. <body oncontextmenu="JavaScript:event.cancelBubble=true;return false;" bgcolor="#6699FF" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" nowrap height="100%" width="100%" onload="JavaScript:LoadHandler();">
  444. <div id="MainDiv">
  445. <form name="mainFrm">
  446. <table bgcolor="#6699FF" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse" height="100%" width="100%"><tr><td>
  447. <table width="760" bgcolor="#6699FF" class="splashtable" align="center" valign="middle" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse" >
  448. <tr height="1" align="left"><td bgcolor="gray" width="760" height="1"></td></tr>
  449. <tr align="left">
  450.     <td>
  451.         <table align="left" background="img/backgroundSlice1Anon<% if g_bSecureConnection then %>Secure<% end if %>.gif" no-repeat class="splashtable" height="150" width="760" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse" margin-bottom="0" margin-top="0">
  452.         <tr valign="top">
  453.             <td align="right" valign="top" colspan="2">
  454.                 <table border="0" cellspacing="0" cellpadding="0">
  455.                 <tr valign="top">
  456.                     <td valign="top">
  457.                         <img src="img/WMSTransparent.gif" width="60" height="110" border="0" alt="">
  458.                             <span class="admintext" nowrap>
  459.                                 <%= SpacesToNonbreak( Server.HTMLEncode( L_SECSETTINGS_TEXT ) ) %>
  460.                             </span>
  461.                     </td>
  462.                     <td align="right" width="66">
  463.                         <img src="img/WMSTransparent.gif" width="80" height="110" border="0" alt=""> 
  464.                     </td>
  465.                 </tr>
  466.                 </table>
  467.             </td>
  468.         </tr>
  469.         <tr>
  470.             <td align="left" valign="bottom" width="<% if ( brMSIE = g_dwBrowserType ) then %>6<% else %>156<% end if %>">
  471.                  
  472.             </td>
  473.             <td align="left" valign="bottom">
  474.                 <table border="0" cellspacing="0" cellpadding="0">
  475.                 <tr>
  476.                     <td>
  477.                         <img src="img/WMSTransparent.gif" width="<% if ( brMSIE = g_dwBrowserType ) then %>154<% else %>12<% end if %>" height="10" border="0" alt=""><span class="helptext"><%= L_CHECKSEC_TEXT %></span>
  478.                      </td>
  479.                  </tr>
  480.                  </table>
  481.             </td>
  482.         </tr>
  483.         </table>
  484.     </td>
  485. </tr>
  486. <tr align="left" valign="top">
  487.     <td>
  488.     <table align="left" valign="top" class="splashtable" width="760" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse" margin-bottom="0" margin-top="0" margin-right="1">
  489.     <tr valign="top">
  490.         <td background="img/backgroundSlice4Anon.gif" no-repeat height="255" margin-top="0" width="150" valign="top" nowrap>
  491.             <img src="img/WMSTransparent.gif" height="6" width="1" border="0">
  492.             <!-- Nested Table for Toolbar Style Buttons-->
  493.             <table align="left" valign="top" width="150" cellspacing="6" cellpadding="4" border="0" margin-bottom="0" margin-top="0">
  494.                 <tr align="center"><td><a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:DoHelp('/','<%= H_SERVERLISTHELPTOPIC %>');" tabindex=3><img src="img/AnonHelp_32.gif" width=32 height=32 border="0" alt="<%= Server.HTMLEncode( L_HELPBUTTONALT_TEXT ) %>"><br/><%= SpacesToNonbreak( Server.HTMLEncode( L_HELP_TEXT ) ) %></a></td></tr>
  495.                 <tr align="center"><td><a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:LogOff();" tabindex=1><img src="img/WMSLogoff_32.jpg" width="32" height="32" border="0" alt="<%= Server.HTMLEncode( L_LOGOFFALT_TEXT ) %>"><br/><%= SpacesToNonbreak( Server.HTMLEncode( L_LOGOFFBTN_TEXT ) ) %></a></td></tr>
  496.             </table>
  497.         </td>
  498.         <td background="img/backgroundAnon<% if g_bSecureConnection then %>Secure<% end if %>.gif" no-repeat width="610" nowrap>
  499.             <table cellspacing="0" cellpadding="0" border="0">
  500.             <tr>
  501.                 <td width="16"> </td>
  502.                 <td bgcolor="white" valign="middle" height="24"><%
  503.                     if( g_bSecureConnection ) then %>
  504.                     <span align="left" class="SSLCheckText" valign="middle"> 
  505.                         <%= Response.Write( Server.HTMLEncode( L_SSLENABLED_TEXT ) ) %>
  506.                     </span><%
  507.                     else %>
  508.                     <table cellpadding="0" cellspacing="1" border="0">
  509.                     <tr>
  510.                         <td width="24">
  511.                             <img src="img/AnonNotSecure_24.gif" alt="" height="24" width="24" border="0">
  512.                         </td>
  513.                         <td width="6">
  514.                             <img src="img/WMSTransparent.gif" alt="" height="1" width="6" border="0">
  515.                         </td>
  516.                         <td class="SSLCheckText">
  517.                             <%= Server.HTMLEncode( L_SSLNOTEN_TEXT ) %>
  518.                         </td>
  519.                     </tr>
  520.                     </table><%
  521.                     end if %>
  522.                 </td>
  523.             </tr>
  524.             <tr>
  525.                 <td> </td>
  526.                 <td>
  527.                     <img src="img/WMSTransparent.gif" height="6" width="1" border="0">
  528.                     <table cellspacing="0" cellpadding="0" border="0">
  529.                     <tr>
  530.                         <td>
  531.                             <table cellspacing="0" cellpadding="0" border="0">
  532.                             <tr>
  533.                                 <td valign="top">
  534.                                     <img src="img/wmsroundinfo_16.gif" height="16" width="16" border="0" alt="">
  535.                                 </td>
  536.                                 <td> </td>
  537.                                 <td>
  538.                                     <span class="helptext"><%
  539.                                     if g_bSecureConnection then
  540.                                         Response.Write( Server.HTMLEncode( L_PROCEEDLOCALSSLHLP_TEXT ) )
  541.                                     else 
  542.                                         Response.Write( Server.HTMLEncode( L_RECOMMENDSEC_TEXT ) )
  543.                                     end if %></span>
  544.                                 </td>
  545.                             </tr>
  546.                             </table>
  547.                         </td>
  548.                     </tr>
  549.                     </table>
  550. <% if g_bSecureConnection then %>
  551.                     <table cellspacing="2" cellpadding="2" border="0">
  552.                     <tr>
  553.                         <td width="18"> </td>
  554.                         <td>
  555.                             <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:Proceed( false );"><%= L_PROCEEDLOCALSSL_TEXT %></a>
  556.                         </td>
  557.                     </tr>
  558.                     </table>
  559.                 </td>
  560.             </tr>
  561.             <tr>
  562.                 <td> </td>
  563.                 <td>
  564.                     <img src="img/WMSTransparent.gif" height="6" width="1" border="0">
  565.                     <table cellspacing="0" cellpadding="0" border="0">
  566.                     <tr>
  567.                         <td>
  568.                             <table cellspacing="0" cellpadding="0" border="0">
  569.                             <tr>
  570.                                 <td valign="top">
  571.                                     <img src="img/wmswarn_16.gif" height="16" width="16" border="0" alt="">
  572.                                 </td>
  573.                                 <td> </td>
  574.                                 <td>
  575.                                     <span class="helptext"><%= Server.HTMLEncode( L_PROCEEDDISTSSLHLP1_TEXT ) %><a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:DoHelp( '','<%= H_SSLHELPTOPIC %>' );"><%= Server.HTMLEncode( L_SECURITYREASONS_TEXT ) %> <img align="absmiddle" src="img/helpdoc_16.gif" height="16" width="16" border="0"></a><%= Server.HTMLEncode( L_PROCEEDDISTSSLHLP2_TEXT ) %></span>
  576.                                 </td>
  577.                                 <td>
  578.                                      
  579.                                 </td>
  580.                             </tr>
  581.                             </table>
  582.                         </td>
  583.                     </tr>
  584.                     </table>
  585.                     
  586.                     <table cellspacing="2" cellpadding="2" border="0">
  587.                     <tr>
  588.                         <td width="18"> </td>
  589.                         <td>
  590.                             <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:Proceed( true );"><%= Server.HTMLEncode( L_PROCEEDDISTSSL_TEXT ) %></a>
  591.                         </td>
  592.                     </tr>
  593.                     </table>
  594.                 </td>
  595.             </tr>
  596. <% else %>
  597.                     <table cellspacing="2" cellpadding="2" border="0">
  598.                     <tr>
  599.                         <td width="18"> </td>
  600.                         <td>
  601.                             <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:DoHelp( '','<%= H_SSLHELPTOPIC %>' );"><%= Server.HTMLEncode( L_ENABLESSL_TEXT ) %> <img align="absmiddle" src="img/helpdoc_16.gif" height="16" width="16" border="0"></a>
  602.                         </td>
  603.                     </tr>
  604.                     </table>
  605.                 </td>
  606.             </tr>
  607.             <tr>
  608.                 <td> </td>
  609.                 <td>
  610.                     <img src="img/WMSTransparent.gif" height="6" width="1" border="0">
  611.                     <table cellspacing="0" cellpadding="0" border="0">
  612.                     <tr>
  613.                         <td>
  614.                             <table cellspacing="0" cellpadding="0" border="0">
  615.                             <tr>
  616.                                 <td valign="absmiddle">
  617.                                     <img src="img/wmswarn_16.gif" height="16" width="16" border="0" alt="">
  618.                                 </td>
  619.                                 <td valign="absmiddle">
  620.                                      
  621.                                 </td>
  622.                                 <td valign="absmiddle">
  623.                                     <span class="helptext" valign="absmiddle"><%
  624.                                     if( brMSIE = g_dwBrowserType ) then
  625.                                         Response.Write( Server.HTMLEncode( L_PROCEEDNOSSL_TEXT ) )
  626.                                     else
  627.                                         Response.Write( Server.HTMLEncode( L_PROCEEDNOSSLNS_TEXT ) )
  628.                                     end if %></span>
  629.                                 </td>
  630.                             </tr>
  631.                             </table>
  632.                         </td>
  633.                     </tr>
  634.                     </table>
  635.                     
  636.                     <table cellspacing="2" cellpadding="2" border="0">
  637.                     <tr>
  638.                         <td width="18"> </td>
  639.                         <td>
  640.                             <a <% if( FALSE = g_bLocalHostRunningWMS ) then %> style="color:gray" <% end if %> oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:Proceed( false );"><%= Server.HTMLEncode( L_PROCEEDNOTREC_TEXT ) %></a>
  641.                         </td>
  642.                     </tr>
  643.                     <tr>
  644.                         <td width="18"> </td>
  645.                         <td>
  646.                             <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="JavaScript:Proceed( true );"><%= Server.HTMLEncode( L_PROCEEDTOSLNOTREC_TEXT ) %></a>
  647.                         </td>
  648.                     </tr>
  649.                     </table>
  650.                 </td>
  651.             </tr>
  652. <% end if %>
  653.             </table>            
  654.         </td>
  655.     </tr>
  656.     </table>
  657.     </td>
  658. </tr>
  659. <tr align="center" valign="top">
  660.     <td>
  661.         <table align="center" valign="top" class="splashtable" width="760" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse;border-left:1px ridge;border-right:1px groove;border-bottom:0px;border-color:silver" margin-bottom="0" margin-top="0">
  662.         <tr valign="top">
  663.             <td bgcolor="gray" colspan="2" height="1"></td>
  664.         </tr>
  665.         <tr>
  666.             <td background="img/bottomstripAnon<% if g_bSecureConnection then %>Secure<% end if %>.gif" no-repeat colspan="2" height="24" width="<% if g_bSecureConnection then %>758<% else %>759<% end if %>" valign="top" nowrap valign="middle"><% 
  667.             if g_bSecureConnection then %>
  668.                 <table cellspacing="0" cellpadding="0" height="24" width="100%" hspace="0" vspace="0">
  669.                     <tr valign="middle">
  670.                         <td>
  671.                             <table cellpadding="1" cellspacing="0" border="0">
  672.                             <tr>
  673.                                 <td>
  674.                                      
  675.                                 </td>
  676.                                 <td nowrap align="absmiddle">
  677.                                     <img border="0" valign="middle" height="24" width="24" alt="<%= Server.HTMLEncode( L_SECURECONNECTION_TEXT ) %>" src="img/AnonSecure_24.gif">
  678.                                 </td>
  679.                                 <td>
  680.                                     <span class="defaultcursor"> </span>
  681.                                 </td>
  682.                                 <td nowrap valign="middle">
  683.                                     <span title="<%= Server.HTMLEncode( L_SECURECONNECTION_TEXT ) %>" class="warntext" style="cursor:default;color:black" valign="middle" href="http://<%= Request.ServerVariables( "HTTP_HOST" ) %>/default.asp" target="sList" border="0">
  684.                                         <% if ( brMSIE <> Session( "BrowserType" ) ) then %><font color="#ff0000"><% end if %><%= Server.HTMLEncode( L_SECURECONNECTION_TEXT ) %><% if( brMSIE <> Session( "BrowserType" ) ) then %></font><% end if %>
  685.                                     </span>
  686.                                 </td>
  687.                             </tr>
  688.                             </table>
  689.                         </td>
  690.                     </tr>
  691.                 </table>
  692.             <% else 
  693.                 if g_bSSLDetected then 
  694.                 %>
  695.                 <table cellspacing="0" cellpadding="0" height="24" width="100%" hspace="0" vspace="0">
  696.                     <tr valign="middle">
  697.                         <td>
  698.                             <table cellpadding="1" cellspacing="0" border="0">
  699.                             <tr>
  700.                                 <td>
  701.                                      
  702.                                 </td>
  703.                                 <td nowrap align="absmiddle">
  704.                                     <img border="0" valign="middle" height="16" width="16" alt="<%= Server.HTMLEncode( L_SECURECONNECTION_TEXT ) %>" src="img/wmstip_16.gif">
  705.                                 </td>
  706.                                 <td>
  707.                                     <span class="defaultcursor"> </span>
  708.                                 </td>
  709.                                 <td nowrap valign="middle">
  710.                                     <span style="cursor:default;color:black" class="warntextsm" valign="middle" href="http://<%= Request.ServerVariables( "HTTP_HOST" ) %>/default.asp" target="sList" border="0">
  711.                                         <% if ( brMSIE <> Session( "BrowserType" ) ) then %><font color="#ff0000"><% end if %><%= CreateSSLConnectString %><% if( brMSIE <> Session( "BrowserType" ) ) then %></font><% end if %>
  712.                                     </span>
  713.                                 </td>
  714.                             </tr>
  715.                             </table>
  716.                         </td>
  717.                     </tr>
  718.                 </table>
  719.                 <% 
  720.                 end if
  721.             end if 
  722.             %>
  723.             </td>
  724.         </tr>
  725.         <tr>
  726.             <td bgcolor="gray" colspan="2" height="1"></td>
  727.         </tr>
  728.         </table>
  729.     </td>
  730. </tr>
  731. <tr align="center"><td bgcolor="gray" width="760" height="1"></td></tr>
  732. </table> <br/><p/><br/>
  733. </td></tr></table>
  734. </form>
  735. </div>
  736. <script FOR="window" EVENT="onBlur" language="JavaScript">
  737. <% if( brMSIE = g_dwBrowserType ) then %>
  738.     window.blur();
  739. <% end if %>
  740. </script>
  741. </body>
  742. </html>
  743. <%
  744. if( 0 = StrComp( strOp, "logoff", vbTextCompare ) ) then
  745.     Session.Abandon
  746. end if
  747. %>